Public Function AddNewUser(ByVal User As String, _
                ByVal Pass As String, ByVal SecurityLevel As Integer) _
                As Integer
      ' Cel: Ta funkcja suy do dodawania nowego uytkownika do systemu. 
      '      Ten kod sprawdza dugo hasa oraz czy nazwa jest ju 
      '	   na licie. Jeli obydwa warunki nie s 
      '      spenione, zwracane jest logiczne False.
      '
      ' Lista argumentw:
      '  User          Nazwa uytkownika
      '  Pass          acuch, ktry zawiera haso
      '  SecurityLevel Uprawnienia uytkownika
      '
      ' Zwracana warto:
      '  integer     -1 jeli jest OK; 0 w pozostaych przypadkach
      '
      Dim i As Integer


      ' Sprawd, czy dugo hasa jest OK
      If Pass.Length < MINLENGTH OrElse Pass.Length > MAXLENGTH Then
        Return 0
      End If

      ' Sprawd poziom uprawnie 
      If SecurityLevel < MINSECURITY OrElse SecurityLevel > MAXSECURITY Then
        Return 0
      End If

      ' Sprawd, czy nazwa nie jest uywana.
      For i = 0 To mUserCount - 1
        If UCase(mUserList(i).User) = UCase(User) Then
          Return 0
        End If
      Next

      mUserCount += 1      ' Dodaj do listy

      If mUserCount >= mUserList.GetUpperBound(0) Then ' Sprawd, czy trzeba 
        ReDim Preserve mUserList(mUserCount + 10)      ' powikszy list
                                                       ' uytkownikw.
      End If

      ' Jeli tu jestemy, mona doda:
      With mUserList(mUserCount)
        .User = User
        .Pass = Pass
        .SecurityLevel = SecurityLevel
      End With

      Return -1        ' Wszystko jest dobrze

    End Function
